home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / data1.cab / Program_Executable_Files / colsoncd.dxr / 00005Series_22.ls < prev    next >
Encoding:
Text File  |  2000-01-12  |  855 b   |  29 lines
  1. on mouseUp
  2.   puppetSound("mainsnd")
  3.   if chars(field "mtmodnum", 2, 2) contains "9" then
  4.     put "59." into field "mtmodnum"
  5.   end if
  6.   if chars(field "mtmodnum", 2, 2) contains "8" then
  7.     put "58." into field "mtmodnum"
  8.   end if
  9.   if chars(field "mtmodnum", 2, 2) contains "9" then
  10.     if field "maincasterphoto" contains "impak" then
  11.       put "79." into field "mtmodnum"
  12.     end if
  13.   end if
  14.   if chars(field "mtmodnum", 2, 2) contains "8" then
  15.     if field "diamodnum" contains "8" then
  16.       if field "maincasterphoto" contains "impak" then
  17.         put "78." into field "mtmodnum"
  18.       end if
  19.     end if
  20.   end if
  21.   put "16" into field "whmodnum"
  22.   put EMPTY into field "bemodnum"
  23.   put EMPTY into field "comodnum"
  24.   put EMPTY into field "whexmodnum"
  25.   put EMPTY into field "bearingoption"
  26.   puppetTransition(47, 1, 8)
  27.   play frame "4bbearingc"
  28. end
  29.